-- background: 5541 from stack: in.1 Shell -- bmap block id: 12455 -- flags: 4000 -- background id: 0 -- name: Master Graphics Card ----- HyperTalk script ----- on openCard do "textSetUp" end openCard ------------------------------------------------------------------- on doMenu it if it is "Delete Card" or it is "Cut Card" then if background field "CheckID" is "Master" then Beep 20 answer "I can't let you remove a 'Master Original' card!" with "Oops, sorry!" exit doMenu end if play "boing" gh answer "Don't forget… delete 'Index' reference too!" with "Yes, I will!" set cursor to 4 end if pass doMenu end doMenu ------------------------------------------------------------------- -- part 1 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=95 top=32 right=59 bottom=429 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 2 -- text size: 18 -- style flags: 0 -- line height: 24 -- part name: Graphic Card Name -- part 2 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=52 top=298 right=312 bottom=91 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: CheckID -- part 3 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=446 top=30 right=55 bottom=483 -- title width / last selected line: 0 -- icon id / first selected line: 21700 / 21700 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseUp go home end mouseUp -- part 4 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=227 top=294 right=317 bottom=265 -- title width / last selected line: 0 -- icon id / first selected line: 1014 / 1014 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Previous ----- HyperTalk script ----- on mouseUp visual effect wipe right go prev end mouseUp -- part 5 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=262 top=293 right=318 bottom=305 -- title width / last selected line: 0 -- icon id / first selected line: 1013 / 1013 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseUp visual effect wipe left go next end mouseUp -- part 7 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=38 top=28 right=60 bottom=444 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Return ----- HyperTalk script ----- on mouseUp visual effect zoom open to black pop card end mouseUp -- part 8 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=487 top=34 right=90 bottom=505 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Index Link ----- HyperTalk script ----- on mouseUp visual effect dissolve to black go to card id 6849 end mouseUp